﻿Imports Persistencia
Public Class ctrCep
    Inherits ControlePadrao.ctrPadrao

#Region "Variáveis"
    Private objCep As New perCep
#End Region

    Public Function selecionarEnderecoPorCep(ByVal sCep As String) As DataRow
        Dim sCepPesquisa As String

        Try
            sCepPesquisa = sCep.Replace("-", "")

            Return Me.objCep.selecionarEnderecoPorCep(sCepPesquisa)

        Catch ex As Exception

            Throw New Exception("Ocorreu um erro no método selecionarEnderecoPorCep." & _
                                Environment.NewLine & ex.Message)

        End Try
    End Function



End Class
